home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-01-03 | 7.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 f4 20 3e 20 | 3a 34 2e 24 2e 52 2e 52 |..... > |:4.$.R.R|
|00000010| 4c 45 6e 63 6f 64 65 32 | 0d 00 14 18 f4 20 50 61 |LEncode2|..... Pa|
|00000020| 63 6b 42 69 74 73 20 41 | 6c 67 6f 72 69 74 68 6d |ckBits A|lgorithm|
|00000030| 0d 00 1e 20 f4 20 52 4a | 47 52 45 45 4e 20 28 4f |... . RJ|GREEN (O|
|00000040| 72 62 69 74 61 6c 29 20 | 44 65 63 20 31 39 39 31 |rbital) |Dec 1991|
|00000050| 0d 00 28 05 3a 0d 00 32 | 09 eb 31 33 3a 87 0d 00 |..(.:..2|..13:...|
|00000060| 33 0d 6e 6f 70 69 63 73 | 25 3d 31 0d 00 3c 1d 73 |3.nopics|%=1..<.s|
|00000070| 63 72 65 65 6e 73 74 61 | 72 74 25 3d a4 73 63 72 |creensta|rt%=.scr|
|00000080| 65 65 6e 73 74 61 72 74 | 0d 00 46 16 73 63 72 65 |eenstart|..F.scre|
|00000090| 65 6e 6c 65 6e 25 3d 32 | 35 36 2a 33 32 30 0d 00 |enlen%=2|56*320..|
|000000a0| 50 1c 68 61 6c 66 73 63 | 72 65 65 6e 25 3d 73 63 |P.halfsc|reen%=sc|
|000000b0| 72 65 65 6e 6c 65 6e 25 | 2f 32 0d 00 5a 28 73 63 |reenlen%|/2..Z(sc|
|000000c0| 72 65 65 6e 65 6e 64 25 | 3d 73 63 72 65 65 6e 73 |reenend%|=screens|
|000000d0| 74 61 72 74 25 2b 73 63 | 72 65 65 6e 6c 65 6e 25 |tart%+sc|reenlen%|
|000000e0| 2d 31 0d 00 64 2e de 20 | 72 6c 65 62 75 66 66 65 |-1..d.. |rlebuffe|
|000000f0| 72 25 20 68 61 6c 66 73 | 63 72 65 65 6e 25 2b 28 |r% halfs|creen%+(|
|00000100| 68 61 6c 66 73 63 72 65 | 65 6e 25 81 31 32 37 29 |halfscre|en%.127)|
|00000110| 0d 00 6e 14 de 20 73 77 | 61 70 74 61 62 6c 65 25 |..n.. sw|aptable%|
|00000120| 20 32 35 36 0d 00 78 11 | de 20 73 74 61 63 6b 25 | 256..x.|. stack%|
|00000130| 28 31 32 38 29 0d 00 82 | 05 3a 0d 00 8c 15 f2 73 |(128)...|.:.....s|
|00000140| 65 74 73 70 65 63 74 72 | 75 6d 74 61 62 6c 65 0d |etspectr|umtable.|
|00000150| 00 96 10 f2 6d 61 6b 65 | 73 68 69 6d 6d 65 72 0d |....make|shimmer.|
|00000160| 00 a0 13 f2 6d 61 6b 65 | 75 6e 70 61 63 6b 62 69 |....make|unpackbi|
|00000170| 74 73 0d 00 aa 05 3a 0d | 00 b4 0f 73 74 61 63 6b |ts....:.|...stack|
|00000180| 70 74 72 25 3d 30 0d 00 | be 14 e3 20 70 69 63 25 |ptr%=0..|... pic%|
|00000190| 3d 31 b8 6e 6f 70 69 63 | 73 25 0d 00 c8 22 20 20 |=1.nopic|s%..." |
|000001a0| 20 f2 6c 6f 61 64 70 69 | 63 28 70 69 63 25 2c 73 | .loadpi|c(pic%,s|
|000001b0| 63 72 65 65 6e 73 74 61 | 72 74 25 29 0d 00 d2 10 |creensta|rt%)....|
|000001c0| 20 20 20 f2 72 65 63 6f | 6c 6f 75 72 0d 00 dc 11 | .reco|lour....|
|000001d0| 20 20 20 f2 63 6c 65 61 | 72 68 61 6c 66 0d 00 dd | .clea|rhalf...|
|000001e0| 2b 20 20 20 f4 20 53 65 | 74 20 75 70 20 67 6c 6f |+ . Se|t up glo|
|000001f0| 62 61 6c 20 76 61 72 69 | 61 62 6c 65 73 20 28 65 |bal vari|ables (e|
|00000200| 72 72 72 72 67 68 29 2e | 0d 00 e6 27 20 20 20 62 |rrrrgh).|...' b|
|00000210| 75 66 66 65 72 25 3d 73 | 63 72 65 65 6e 73 74 61 |uffer%=s|creensta|
|00000220| 72 74 25 2b 68 61 6c 66 | 73 63 72 65 65 6e 25 0d |rt%+half|screen%.|
|00000230| 00 f0 13 20 20 20 73 63 | 72 65 65 6e 70 74 72 25 |... sc|reenptr%|
|00000240| 3d 30 0d 00 fa 10 20 20 | 20 72 6c 65 6c 65 6e 25 |=0.... | rlelen%|
|00000250| 3d 30 0d 01 04 10 20 20 | 20 f2 70 61 63 6b 62 69 |=0.... | .packbi|
|00000260| 74 73 0d 01 0e 23 20 20 | 20 f1 8a 30 2c 30 29 3b |ts...# | ..0,0);|
|00000270| 22 50 61 63 6b 42 69 74 | 73 3d 26 22 3b 7e 72 6c |"PackBit|s=&";~rl|
|00000280| 65 6c 65 6e 25 0d 01 18 | 3b 20 20 20 f1 8a 30 2c |elen%...|; ..0,|
|00000290| 31 29 3b 22 43 6f 6d 70 | 72 65 73 73 3d 22 3b a8 |1);"Comp|ress=";.|
|000002a0| 28 31 30 30 2a 28 72 6c | 65 6c 65 6e 25 2f 73 63 |(100*(rl|elen%/sc|
|000002b0| 72 65 65 6e 6c 65 6e 25 | 29 2b 31 29 3b 22 25 22 |reenlen%|)+1);"%"|
|000002c0| 0d 01 22 09 20 20 20 e7 | a5 0d 01 2c 3e 20 20 20 |..". .|...,> |
|000002d0| f2 63 6f 70 79 62 6c 6f | 63 6b 28 73 63 72 65 65 |.copyblo|ck(scree|
|000002e0| 6e 73 74 61 72 74 25 2b | 68 61 6c 66 73 63 72 65 |nstart%+|halfscre|
|000002f0| 65 6e 25 2c 72 6c 65 62 | 75 66 66 65 72 25 2c 72 |en%,rleb|uffer%,r|
|00000300| 6c 65 6c 65 6e 25 29 0d | 01 2d 2f f4 20 44 6f 6e |lelen%).|.-/. Don|
|00000310| 27 74 20 72 65 61 6c 6c | 79 20 77 61 6e 74 20 74 |'t reall|y want t|
|00000320| 6f 20 73 61 76 65 20 61 | 6e 79 74 68 69 6e 67 20 |o save a|nything |
|00000330| 79 65 74 2e 2e 2e 0d 01 | 36 2f f4 20 50 52 4f 43 |yet.....|6/. PROC|
|00000340| 73 61 76 65 70 61 63 6b | 62 69 74 73 28 70 69 63 |savepack|bits(pic|
|00000350| 25 2c 72 6c 65 62 75 66 | 66 65 72 25 2c 72 6c 65 |%,rlebuf|fer%,rle|
|00000360| 6c 65 6e 25 29 0d 01 40 | 08 20 20 20 db 0d 01 4a |len%)..@|. ...J|
|00000370| 12 20 20 20 f2 75 6e 70 | 61 63 6b 62 69 74 73 0d |. .unp|ackbits.|
|00000380| 01 54 09 20 20 20 e7 a5 | 0d 01 5e 05 ed 0d 01 68 |.T. ..|..^....h|
|00000390| 05 e0 0d 01 72 05 3a 0d | 01 7c 4b f4 20 50 61 63 |....r.:.|.|K. Pac|
|000003a0| 6b 42 69 74 73 20 49 6e | 74 65 72 66 61 63 65 20 |kBits In|terface |
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 0d 01 86 05 3a 0d | 01 90 0e dd a4 67 65 74 |--....:.|.....get|
|000003f0| 70 69 78 65 6c 0d 01 9a | 22 76 61 6c 75 65 25 3d |pixel...|"value%=|
|00000400| 73 63 72 65 65 6e 73 74 | 61 72 74 25 3f 73 63 72 |screenst|art%?scr|
|00000410| 65 65 6e 70 74 72 25 0d | 01 a4 28 73 63 72 65 65 |eenptr%.|..(scree|
|00000420| 6e 73 74 61 72 74 25 3f | 73 63 72 65 65 6e 70 74 |nstart%?|screenpt|
|00000430| 72 25 3d 76 61 6c 75 65 | 25 20 82 20 26 46 46 0d |r%=value|% . &FF.|
|00000440| 01 ae 11 73 63 72 65 65 | 6e 70 74 72 25 2b 3d 31 |...scree|nptr%+=1|
|00000450| 0d 01 b8 0b 3d 76 61 6c | 75 65 25 0d 01 c2 05 3a |....=val|ue%....:|
|00000460| 0d 01 cc 0e dd a4 66 69 | 6e 69 73 68 65 64 0d 01 |......fi|nished..|
|00000470| d6 1d 3d 28 73 63 72 65 | 65 6e 70 74 72 25 3d 68 |..=(scre|enptr%=h|
|00000480| 61 6c 66 73 63 72 65 65 | 6e 25 29 0d 01 e0 05 3a |alfscree|n%)....:|
|00000490| 0d 01 ea 0a dd f2 64 75 | 6d 70 0d 01 f4 39 e7 20 |......du|mp...9. |
|000004a0| 63 6f 75 6e 74 25 3e 30 | 20 8c 20 3f 62 75 66 66 |count%>0| . ?buff|
|000004b0| 65 72 25 3d 63 6f 75 6e | 74 25 20 8b 20 3f 62 75 |er%=coun|t% . ?bu|
|000004c0| 66 66 65 72 25 3d 28 2d | 63 6f 75 6e 74 25 29 2b |ffer%=(-|count%)+|
|000004d0| 31 32 38 0d 01 fe 13 e3 | 69 25 3d 31 b8 73 74 61 |128.....|i%=1.sta|
|000004e0| 63 6b 70 74 72 25 0d 02 | 08 1e 20 20 20 62 75 66 |ckptr%..|.. buf|
|000004f0| 66 65 72 25 3f 69 25 3d | 73 74 61 63 6b 25 28 69 |fer%?i%=|stack%(i|
|00000500| 25 2d 31 29 0d 02 12 05 | ed 0d 02 1c 18 62 75 66 |%-1)....|.....buf|
|00000510| 66 65 72 25 2b 3d 73 74 | 61 63 6b 70 74 72 25 2b |fer%+=st|ackptr%+|
|00000520| 31 0d 02 26 18 72 6c 65 | 6c 65 6e 25 2b 3d 73 74 |1..&.rle|len%+=st|
|00000530| 61 63 6b 70 74 72 25 2b | 31 0d 02 30 0f 73 74 61 |ackptr%+|1..0.sta|
|00000540| 63 6b 70 74 72 25 3d 30 | 0d 02 3a 05 e1 0d 02 44 |ckptr%=0|..:....D|
|00000550| 05 3a 0d 02 4e 4b f4 20 | 50 61 63 6b 42 69 74 73 |.:..NK. |PackBits|
|00000560| 20 41 6c 67 6f 72 69 74 | 68 6d 20 2d 2d 2d 2d 2d | Algorit|hm -----|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 02 58 |--------|-----..X|
|000005a0| 05 3a 0d 02 62 10 dd f2 | 70 75 73 68 28 6e 75 6d |.:..b...|push(num|
|000005b0| 25 29 0d 02 6c 1a 73 74 | 61 63 6b 25 28 73 74 61 |%)..l.st|ack%(sta|
|000005c0| 63 6b 70 74 72 25 29 3d | 6e 75 6d 25 0d 02 76 10 |ckptr%)=|num%..v.|
|000005d0| 73 74 61 63 6b 70 74 72 | 25 2b 3d 31 0d 02 80 05 |stackptr|%+=1....|
|000005e0| e1 0d 02 8a 05 3a 0d 02 | 94 09 dd a4 70 6f 70 0d |.....:..|....pop.|
|000005f0| 02 9e 10 73 74 61 63 6b | 70 74 72 25 2d 3d 31 0d |...stack|ptr%-=1.|
|00000600| 02 a8 15 e7 20 73 74 61 | 63 6b 70 74 72 25 3c 30 |.... sta|ckptr%<0|
|00000610| 20 8c 20 fa 0d 02 b2 16 | 3d 73 74 61 63 6b 25 28 | . .....|=stack%(|
|00000620| 73 74 61 63 6b 70 74 72 | 25 29 0d 02 bc 05 3a 0d |stackptr|%)....:.|
|00000630| 02 c6 09 dd a4 74 6f 70 | 0d 02 d0 18 3d 73 74 61 |.....top|....=sta|
|00000640| 63 6b 25 28 73 74 61 63 | 6b 70 74 72 25 2d 31 29 |ck%(stac|kptr%-1)|
|00000650| 0d 02 da 05 3a 0d 02 e4 | 0d dd a4 6e 65 78 74 74 |....:...|...nextt|
|00000660| 6f 70 0d 02 ee 18 3d 73 | 74 61 63 6b 25 28 73 74 |op....=s|tack%(st|
|00000670| 61 63 6b 70 74 72 25 2d | 32 29 0d 02 f8 05 3a 0d |ackptr%-|2)....:.|
|00000680| 03 02 0e dd f2 70 61 63 | 6b 62 69 74 73 0d 03 0c |.....pac|kbits...|
|00000690| 0c 63 6f 75 6e 74 25 3d | 31 0d 03 16 14 f2 70 75 |.count%=|1.....pu|
|000006a0| 73 68 28 a4 67 65 74 70 | 69 78 65 6c 29 0d 03 20 |sh(.getp|ixel).. |
|000006b0| 05 f5 0d 03 2a 13 6e 65 | 78 74 25 3d a4 67 65 74 |....*.ne|xt%=.get|
|000006c0| 70 69 78 65 6c 0d 03 34 | 13 20 20 20 e7 20 63 6f |pixel..4|. . co|
|000006d0| 75 6e 74 25 3e 30 20 8c | 0d 03 3e 18 20 20 20 20 |unt%>0 .|..>. |
|000006e0| 20 20 e7 20 6e 65 78 74 | 25 3d a4 74 6f 70 20 8c | . next|%=.top .|
|000006f0| 0d 03 48 1b 20 20 20 20 | 20 20 20 20 20 e7 20 63 |..H. | . c|
|00000700| 6f 75 6e 74 25 3d 31 32 | 37 20 8c 0d 03 52 15 20 |ount%=12|7 ...R. |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 f2 64 75 6d 70 | | .dump|
|00000720| 0d 03 5c 1c 20 20 20 20 | 20 20 20 20 20 20 20 20 |..\. | |
|00000730| f2 70 75 73 68 28 6e 65 | 78 74 25 29 0d 03 66 18 |.push(ne|xt%)..f.|
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6f 75 6e | | coun|
|00000750| 74 25 3d 31 0d 03 70 0e | 20 20 20 20 20 20 20 20 |t%=1..p.| |
|00000760| 20 cc 0d 03 7a 19 20 20 | 20 20 20 20 20 20 20 20 | ...z. | |
|00000770| 20 20 63 6f 75 6e 74 25 | 2b 3d 31 0d 03 84 0e 20 | count%|+=1.... |
|00000780| 20 20 20 20 20 20 20 20 | cd 0d 03 8e 0b 20 20 20 | |..... |
|00000790| 20 20 20 cc 0d 03 98 19 | 20 20 20 20 20 20 20 20 | .....| |
|000007a0| 20 e7 20 63 6f 75 6e 74 | 25 3e 32 20 8c 0d 03 a2 | . count|%>2 ....|
|000007b0| 15 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 64 75 |. | .du|
|000007c0| 6d 70 0d 03 ac 1c 20 20 | 20 20 20 20 20 20 20 20 |mp.... | |
|000007d0| 20 20 f2 70 75 73 68 28 | 6e 65 78 74 25 29 0d 03 | .push(|next%)..|
|000007e0| b6 18 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6f |.. | co|
|000007f0| 75 6e 74 25 3d 31 0d 03 | c0 0e 20 20 20 20 20 20 |unt%=1..|.. |
|00000800| 20 20 20 cc 0d 03 ca 28 | 20 20 20 20 20 20 20 20 | ....(| |
|00000810| 20 20 20 20 e7 20 63 6f | 75 6e 74 25 3d 32 20 8c | . co|unt%=2 .|
|00000820| 20 f2 70 75 73 68 28 a4 | 74 6f 70 29 0d 03 d4 1c | .push(.|top)....|
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 70 75 73 | | .pus|
|00000840| 68 28 6e 65 78 74 25 29 | 0d 03 de 22 20 20 20 20 |h(next%)|..." |
|00000850| 20 20 20 20 20 20 20 20 | 63 6f 75 6e 74 25 3d 2d | |count%=-|
|00000860| 28 63 6f 75 6e 74 25 2b | 31 29 0d 03 e8 0e 20 20 |(count%+|1).... |
|00000870| 20 20 20 20 20 20 20 cd | 0d 03 f2 0b 20 20 20 20 | .|.... |
|00000880| 20 20 cd 0d 03 fc 08 20 | 20 20 cc 0d 04 06 18 20 | ..... | ..... |
|00000890| 20 20 20 20 20 e7 20 6e | 65 78 74 25 3d a4 74 6f | . n|ext%=.to|
|000008a0| 70 20 8c 0d 04 10 1e 20 | 20 20 20 20 20 20 20 20 |p ..... | |
|000008b0| e7 20 a4 74 6f 70 3d a4 | 6e 65 78 74 74 6f 70 20 |. .top=.|nexttop |
|000008c0| 8c 0d 04 1a 1a 20 20 20 | 20 20 20 20 20 20 20 20 |..... | |
|000008d0| 20 63 6f 70 79 25 3d a4 | 70 6f 70 0d 04 24 1a 20 | copy%=.|pop..$. |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 63 6f 70 79 25 | | copy%|
|000008f0| 3d a4 70 6f 70 0d 04 2e | 19 20 20 20 20 20 20 20 |=.pop...|. |
|00000900| 20 20 20 20 20 63 6f 75 | 6e 74 25 2b 3d 32 0d 04 | cou|nt%+=2..|
|00000910| 38 15 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 64 |8. | .d|
|00000920| 75 6d 70 0d 04 42 1c 20 | 20 20 20 20 20 20 20 20 |ump..B. | |
|00000930| 20 20 20 f2 70 75 73 68 | 28 6e 65 78 74 25 29 0d | .push|(next%).|
|00000940| 04 4c 18 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |.L. | c|
|00000950| 6f 75 6e 74 25 3d 33 0d | 04 56 0e 20 20 20 20 20 |ount%=3.|.V. |
|00000960| 20 20 20 20 cc 0d 04 60 | 1f 20 20 20 20 20 20 20 | ...`|. |
|00000970| 20 20 20 20 20 e7 20 63 | 6f 75 6e 74 25 3d 2d 31 | . c|ount%=-1|
|00000980| 32 37 20 8c 0d 04 6a 18 | 20 20 20 20 20 20 20 20 |27 ...j.| |
|00000990| 20 20 20 20 20 20 20 f2 | 64 75 6d 70 0d 04 74 1f | .|dump..t.|
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 | | .|
|000009b0| 70 75 73 68 28 6e 65 78 | 74 25 29 0d 04 7e 1b 20 |push(nex|t%)..~. |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6f | | co|
|000009d0| 75 6e 74 25 3d 31 0d 04 | 88 11 20 20 20 20 20 20 |unt%=1..|.. |
|000009e0| 20 20 20 20 20 20 cc 0d | 04 92 1f 20 20 20 20 20 | ..|... |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 f2 70 75 73 68 28 | | .push(|
|00000a00| 6e 65 78 74 25 29 0d 04 | 9c 1c 20 20 20 20 20 20 |next%)..|.. |
|00000a10| 20 20 20 20 20 20 20 20 | 20 63 6f 75 6e 74 25 2d | | count%-|
|00000a20| 3d 31 0d 04 a6 11 20 20 | 20 20 20 20 20 20 20 20 |=1.... | |
|00000a30| 20 20 cd 0d 04 b0 0e 20 | 20 20 20 20 20 20 20 20 | ..... | |
|00000a40| cd 0d 04 ba 0b 20 20 20 | 20 20 20 cc 0d 04 c4 1c |..... | .....|
|00000a50| 20 20 20 20 20 20 20 20 | 20 e7 20 63 6f 75 6e 74 | | . count|
|00000a60| 25 3d 2d 31 32 37 20 8c | 0d 04 ce 15 20 20 20 20 |%=-127 .|.... |
|00000a70| 20 20 20 20 20 20 20 20 | f2 64 75 6d 70 0d 04 d8 | |.dump...|
|00000a80| 1c 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 70 75 |. | .pu|
|00000a90| 73 68 28 6e 65 78 74 25 | 29 0d 04 e2 18 20 20 20 |sh(next%|).... |
|00000aa0| 20 20 20 20 20 20 20 20 | 20 63 6f 75 6e 74 25 3d | | count%=|
|00000ab0| 31 0d 04 ec 0e 20 20 20 | 20 20 20 20 20 20 cc 0d |1.... | ..|
|00000ac0| 04 f6 1c 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |... | .|
|00000ad0| 70 75 73 68 28 6e 65 78 | 74 25 29 0d 05 00 19 20 |push(nex|t%).... |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 63 6f 75 6e 74 | | count|
|00000af0| 25 2d 3d 31 0d 05 0a 0e | 20 20 20 20 20 20 20 20 |%-=1....| |
|00000b00| 20 cd 0d 05 14 0b 20 20 | 20 20 20 20 cd 0d 05 1e | ..... | ....|
|00000b10| 08 20 20 20 cd 0d 05 28 | 0f fd 20 a4 66 69 6e 69 |. ...(|.. .fini|
|00000b20| 73 68 65 64 0d 05 32 09 | f2 64 75 6d 70 0d 05 3c |shed..2.|.dump..<|
|00000b30| 0e 3f 62 75 66 66 65 72 | 25 3d 30 0d 05 46 0e 72 |.?buffer|%=0..F.r|
|00000b40| 6c 65 6c 65 6e 25 2b 3d | 31 0d 05 50 05 e1 0d 05 |lelen%+=|1..P....|
|00000b50| 5a 05 3a 0d 05 64 49 f4 | 20 44 65 63 6f 6d 70 72 |Z.:..dI.| Decompr|
|00000b60| 65 73 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ess ----|--------|
|00000b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 05 6e 05 |--------|----..n.|
|00000ba0| 3a 0d 05 78 10 dd f2 75 | 6e 70 61 63 6b 62 69 74 |:..x...u|npackbit|
|00000bb0| 73 0d 05 82 10 d6 20 75 | 6e 70 61 63 6b 62 69 74 |s..... u|npackbit|
|00000bc0| 73 0d 05 8c 05 e1 0d 05 | 96 05 3a 0d 05 97 27 f4 |s.......|..:...'.|
|00000bd0| 20 48 65 72 65 20 69 73 | 20 74 68 65 20 61 6c 67 | Here is| the alg|
|00000be0| 6f 72 69 74 68 6d 20 69 | 6e 20 42 41 53 49 43 2e |orithm i|n BASIC.|
|00000bf0| 2e 2e 0d 05 a0 3b f4 20 | 44 45 46 50 52 4f 43 75 |.....;. |DEFPROCu|
|00000c00| 6e 70 61 63 6b 62 69 74 | 73 28 73 63 72 65 65 6e |npackbit|s(screen|
|00000c10| 73 74 61 72 74 25 2c 73 | 63 72 65 65 6e 65 6e 64 |start%,s|creenend|
|00000c20| 25 2c 72 6c 65 62 75 66 | 66 65 72 25 29 0d 05 aa |%,rlebuf|fer%)...|
|00000c30| 1c f4 20 73 74 61 72 74 | 70 74 72 25 3d 73 63 72 |.. start|ptr%=scr|
|00000c40| 65 65 6e 73 74 61 72 74 | 25 0d 05 b4 18 f4 20 65 |eenstart|%..... e|
|00000c50| 6e 64 70 74 72 25 3d 73 | 63 72 65 65 6e 65 6e 64 |ndptr%=s|creenend|
|00000c60| 25 0d 05 be 1b f4 20 62 | 75 66 66 65 72 70 74 72 |%..... b|ufferptr|
|00000c70| 25 3d 72 6c 65 62 75 66 | 66 65 72 25 0d 05 c8 18 |%=rlebuf|fer%....|
|00000c80| f4 20 76 61 6c 75 65 25 | 3d 3f 62 75 66 66 65 72 |. value%|=?buffer|
|00000c90| 70 74 72 25 0d 05 d2 13 | f4 20 62 75 66 66 65 72 |ptr%....|. buffer|
|00000ca0| 70 74 72 25 2b 3d 31 0d | 05 dc 15 f4 20 57 48 49 |ptr%+=1.|.... WHI|
|00000cb0| 4c 45 20 76 61 6c 75 65 | 25 3c 3e 30 0d 05 e6 1b |LE value|%<>0....|
|00000cc0| f4 20 20 20 20 49 46 20 | 76 61 6c 75 65 25 3c 31 |. IF |value%<1|
|00000cd0| 32 38 20 54 48 45 4e 0d | 05 f0 1c f4 20 20 20 20 |28 THEN.|.... |
|00000ce0| 20 20 20 70 69 78 25 3d | 3f 62 75 66 66 65 72 70 | pix%=|?bufferp|
|00000cf0| 74 72 25 0d 05 fa 19 f4 | 20 20 20 20 20 20 20 62 |tr%.....| b|
|00000d00| 75 66 66 65 72 70 74 72 | 25 2b 3d 31 0d 06 04 1b |ufferptr|%+=1....|
|00000d10| f4 20 20 20 20 20 20 20 | 46 4f 52 69 25 3d 31 54 |. |FORi%=1T|
|00000d20| 4f 76 61 6c 75 65 25 0d | 06 0e 2b f4 20 20 20 20 |Ovalue%.|..+. |
|00000d30| 20 20 20 20 20 20 3f 73 | 74 61 72 74 70 74 72 25 | ?s|tartptr%|
|00000d40| 3d 3f 73 74 61 72 74 70 | 74 72 25 45 4f 52 70 69 |=?startp|tr%EORpi|
|00000d50| 78 25 0d 06 18 27 f4 20 | 20 20 20 20 20 20 20 20 |x%...'. | |
|00000d60| 20 3f 65 6e 64 70 74 72 | 25 3d 3f 65 6e 64 70 74 | ?endptr|%=?endpt|
|00000d70| 72 25 45 4f 52 70 69 78 | 25 0d 06 22 1b f4 20 20 |r%EORpix|%..".. |
|00000d80| 20 20 20 20 20 20 20 20 | 73 74 61 72 74 70 74 72 | |startptr|
|00000d90| 25 2b 3d 31 0d 06 2c 19 | f4 20 20 20 20 20 20 20 |%+=1..,.|. |
|00000da0| 20 20 20 65 6e 64 70 74 | 72 25 2d 3d 31 0d 06 36 | endpt|r%-=1..6|
|00000db0| 10 f4 20 20 20 20 20 20 | 20 4e 45 58 54 0d 06 40 |.. | NEXT..@|
|00000dc0| 0d f4 20 20 20 20 45 4c | 53 45 0d 06 4a 21 f4 20 |.. EL|SE..J!. |
|00000dd0| 20 20 20 20 20 20 46 4f | 52 69 25 3d 31 54 4f 28 | FO|Ri%=1TO(|
|00000de0| 76 61 6c 75 65 25 2d 31 | 32 38 29 0d 06 54 32 f4 |value%-1|28)..T2.|
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 3f 73 74 61 72 74 | | ?start|
|00000e00| 70 74 72 25 3d 3f 73 74 | 61 72 74 70 74 72 25 45 |ptr%=?st|artptr%E|
|00000e10| 4f 52 3f 62 75 66 66 65 | 72 70 74 72 25 0d 06 5e |OR?buffe|rptr%..^|
|00000e20| 2e f4 20 20 20 20 20 20 | 20 20 20 20 3f 65 6e 64 |.. | ?end|
|00000e30| 70 74 72 25 3d 3f 65 6e | 64 70 74 72 25 45 4f 52 |ptr%=?en|dptr%EOR|
|00000e40| 3f 62 75 66 66 65 72 70 | 74 72 25 0d 06 68 1c f4 |?bufferp|tr%..h..|
|00000e50| 20 20 20 20 20 20 20 20 | 20 20 62 75 66 66 65 72 | | buffer|
|00000e60| 70 74 72 25 2b 3d 31 0d | 06 72 1b f4 20 20 20 20 |ptr%+=1.|.r.. |
|00000e70| 20 20 20 20 20 20 73 74 | 61 72 74 70 74 72 25 2b | st|artptr%+|
|00000e80| 3d 31 0d 06 7c 19 f4 20 | 20 20 20 20 20 20 20 20 |=1..|.. | |
|00000e90| 20 65 6e 64 70 74 72 25 | 2d 3d 31 0d 06 86 10 f4 | endptr%|-=1.....|
|00000ea0| 20 20 20 20 20 20 20 4e | 45 58 54 0d 06 90 0e f4 | N|EXT.....|
|00000eb0| 20 20 20 20 45 4e 44 49 | 46 0d 06 9a 1b f4 20 20 | ENDI|F..... |
|00000ec0| 20 20 76 61 6c 75 65 25 | 3d 3f 62 75 66 66 65 72 | value%|=?buffer|
|00000ed0| 70 74 72 25 0d 06 a4 16 | f4 20 20 20 20 62 75 66 |ptr%....|. buf|
|00000ee0| 66 65 72 70 74 72 25 2b | 3d 31 0d 06 ae 0e f4 20 |ferptr%+|=1..... |
|00000ef0| 45 4e 44 57 48 49 4c 45 | 0d 06 b8 0d f4 20 45 4e |ENDWHILE|..... EN|
|00000f00| 44 50 52 4f 43 0d 06 c2 | 05 3a 0d 06 cc 49 f4 20 |DPROC...|.:...I. |
|00000f10| 47 65 6e 65 72 61 6c 20 | 2d 2d 2d 2d 2d 2d 2d 2d |General |--------|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f50| 2d 2d 2d 0d 06 d6 05 3a | 0d 06 e0 11 dd a4 73 63 |---....:|......sc|
|00000f60| 72 65 65 6e 73 74 61 72 | 74 0d 06 ea 0f de 20 73 |reenstar|t..... s|
|00000f70| 63 72 65 65 6e 25 20 38 | 0d 06 f4 10 21 73 63 72 |creen% 8|....!scr|
|00000f80| 65 65 6e 25 3d 31 34 38 | 0d 06 fe 10 73 63 72 65 |een%=148|....scre|
|00000f90| 65 6e 25 21 34 3d 2d 31 | 0d 07 08 2b c8 99 22 4f |en%!4=-1|...+.."O|
|00000fa0| 53 5f 52 65 61 64 56 64 | 75 56 61 72 69 61 62 6c |S_ReadVd|uVariabl|
|00000fb0| 65 73 22 2c 73 63 72 65 | 65 6e 25 2c 73 63 72 65 |es",scre|en%,scre|
|00000fc0| 65 6e 25 0d 07 12 0d 3d | 21 73 63 72 65 65 6e 25 |en%....=|!screen%|
|00000fd0| 0d 07 1c 05 3a 0d 07 26 | 16 dd f2 73 65 74 73 70 |....:..&|...setsp|
|00000fe0| 65 63 74 72 75 6d 74 61 | 62 6c 65 0d 07 30 13 de |ectrumta|ble..0..|
|00000ff0| 20 63 6f 6c 74 61 62 6c | 65 25 28 37 32 29 0d 07 | coltabl|e%(72)..|
|00001000| 3a 10 f2 73 65 74 73 70 | 65 63 74 72 75 6d 0d 07 |:..setsp|ectrum..|
|00001010| 44 0d e3 20 69 25 3d 30 | b8 37 31 0d 07 4e 14 20 |D.. i%=0|.71..N. |
|00001020| 20 20 f2 73 70 65 63 74 | 72 75 6d 28 69 25 29 0d | .spect|rum(i%).|
|00001030| 07 58 14 20 20 20 c8 92 | 20 69 25 3c 3c 32 2c 31 |.X. ..| i%<<2,1|
|00001040| 30 32 33 0d 07 62 24 20 | 20 20 63 6f 6c 74 61 62 |023..b$ | coltab|
|00001050| 6c 65 25 28 69 25 29 3d | 73 63 72 65 65 6e 73 74 |le%(i%)=|screenst|
|00001060| 61 72 74 25 3f 69 25 0d | 07 6c 05 ed 0d 07 76 0e |art%?i%.|.l....v.|
|00001070| e3 20 69 25 3d 30 b8 32 | 35 35 0d 07 80 16 20 20 |. i%=0.2|55.... |
|00001080| 20 73 77 61 70 74 61 62 | 6c 65 25 3f 69 25 3d 30 | swaptab|le%?i%=0|
|00001090| 0d 07 8a 05 ed 0d 07 94 | 16 73 77 61 70 74 61 62 |........|.swaptab|
|000010a0| 6c 65 25 3f 32 35 35 3d | 32 35 35 0d 07 9e 0d e3 |le%?255=|255.....|
|000010b0| 20 69 25 3d 30 b8 37 31 | 0d 07 a8 35 20 20 20 73 | i%=0.71|...5 s|
|000010c0| 77 61 70 74 61 62 6c 65 | 25 3f 63 6f 6c 74 61 62 |waptable|%?coltab|
|000010d0| 6c 65 25 28 69 25 29 3d | 63 6f 6c 74 61 62 6c 65 |le%(i%)=|coltable|
|000010e0| 25 28 28 69 25 2b 37 31 | 29 83 37 32 29 0d 07 b2 |%((i%+71|).72)...|
|000010f0| 05 ed 0d 07 bc 05 e1 0d | 07 c6 05 3a 0d 07 d0 22 |........|...:..."|
|00001100| dd f2 63 6f 70 79 62 6c | 6f 63 6b 28 66 72 6f 6d |..copybl|ock(from|
|00001110| 25 2c 74 6f 25 2c 6c 65 | 6e 67 74 68 25 29 0d 07 |%,to%,le|ngth%)..|
|00001120| da 13 e3 69 25 3d 30 b8 | 6c 65 6e 67 74 68 25 2d |...i%=0.|length%-|
|00001130| 31 0d 07 e4 16 20 20 20 | 74 6f 25 3f 69 25 3d 66 |1.... |to%?i%=f|
|00001140| 72 6f 6d 25 3f 69 25 0d | 07 ee 05 ed 0d 07 f8 05 |rom%?i%.|........|
|00001150| e1 0d 08 02 05 3a 0d 08 | 0c 0f dd f2 63 6c 65 61 |.....:..|....clea|
|00001160| 72 68 61 6c 66 0d 08 16 | 17 e3 69 25 3d 30 b8 68 |rhalf...|..i%=0.h|
|00001170| 61 6c 66 73 63 72 65 65 | 6e 25 88 34 0d 08 20 26 |alfscree|n%.4.. &|
|00001180| 20 20 20 73 63 72 65 65 | 6e 73 74 61 72 74 25 21 | scree|nstart%!|
|00001190| 28 68 61 6c 66 73 63 72 | 65 65 6e 25 2b 69 25 29 |(halfscr|een%+i%)|
|000011a0| 3d 30 0d 08 2a 05 ed 0d | 08 34 05 e1 0d 08 3e 05 |=0..*...|.4....>.|
|000011b0| 3a 0d 08 48 0e dd f2 72 | 65 63 6f 6c 6f 75 72 0d |:..H...r|ecolour.|
|000011c0| 08 52 0f e3 69 25 3d 30 | b8 b3 28 37 32 29 0d 08 |.R..i%=0|..(72)..|
|000011d0| 5c 10 20 20 20 d6 73 68 | 69 6d 6d 65 72 31 0d 08 |\. .sh|immer1..|
|000011e0| 66 05 ed 0d 08 70 05 e1 | 0d 08 7a 05 3a 0d 08 84 |f....p..|..z.:...|
|000011f0| 20 dd f2 6c 6f 61 64 70 | 69 63 28 6e 75 6d 25 2c | ..loadp|ic(num%,|
|00001200| 73 63 72 65 65 6e 73 74 | 61 72 74 25 29 0d 08 8e |screenst|art%)...|
|00001210| 44 f4 20 4f 53 43 4c 49 | 22 4c 4f 41 44 20 3c 54 |D. OSCLI|"LOAD <T|
|00001220| 72 69 70 41 54 72 6f 6e | 24 44 69 72 3e 2e 44 41 |ripATron|$Dir>.DA|
|00001230| 54 22 2b 53 54 52 24 6e | 75 6d 25 2b 22 20 22 2b |T"+STR$n|um%+" "+|
|00001240| 53 54 52 24 7e 73 63 72 | 65 65 6e 73 74 61 72 74 |STR$~scr|eenstart|
|00001250| 25 0d 08 98 1b 73 63 72 | 65 65 6e 70 74 72 25 3d |%....scr|eenptr%=|
|00001260| 73 63 72 65 65 6e 73 74 | 61 72 74 25 0d 08 a2 28 |screenst|art%...(|
|00001270| 66 69 6c 65 25 3d 8e 28 | 22 3c 54 72 69 70 41 54 |file%=.(|"<TripAT|
|00001280| 72 6f 6e 24 44 69 72 3e | 2e 50 49 43 22 2b c3 6e |ron$Dir>|.PIC"+.n|
|00001290| 75 6d 25 29 0d 08 ac 13 | cf 23 66 69 6c 65 25 3d |um%)....|.#file%=|
|000012a0| 33 32 30 2b 32 34 38 0d | 08 b6 14 e3 69 25 3d 30 |320+248.|....i%=0|
|000012b0| b8 73 63 72 65 65 6e 6c | 65 6e 25 0d 08 c0 1a 20 |.screenl|en%.... |
|000012c0| 20 20 3f 73 63 72 65 65 | 6e 70 74 72 25 3d 9a 23 | ?scree|nptr%=.#|
|000012d0| 66 69 6c 65 25 0d 08 ca | 14 20 20 20 73 63 72 65 |file%...|. scre|
|000012e0| 65 6e 70 74 72 25 2b 3d | 31 0d 08 d4 05 ed 0d 08 |enptr%+=|1.......|
|000012f0| d5 0b d9 23 66 69 6c 65 | 25 0d 08 de 05 e1 0d 08 |...#file|%.......|
|00001300| e8 05 3a 0d 08 f2 24 dd | f2 73 61 76 65 70 61 63 |..:...$.|.savepac|
|00001310| 6b 62 69 74 73 28 6e 75 | 6d 25 2c 73 74 61 72 74 |kbits(nu|m%,start|
|00001320| 25 2c 6c 65 6e 25 29 0d | 08 f3 4a ff 22 53 41 56 |%,len%).|..J."SAV|
|00001330| 45 20 3c 54 72 69 70 41 | 54 72 6f 6e 24 44 69 72 |E <TripA|Tron$Dir|
|00001340| 3e 2e 70 61 63 6b 64 61 | 74 2e 6a 70 61 63 6b 22 |>.packda|t.jpack"|
|00001350| 2b c3 28 6e 75 6d 25 29 | 2b 22 20 22 2b c3 7e 73 |+.(num%)|+" "+.~s|
|00001360| 74 61 72 74 25 2b 22 20 | 2b 22 2b c3 7e 6c 65 6e |tart%+" |+"+.~len|
|00001370| 25 0d 08 fc 05 e1 0d 09 | 06 05 3a 0d 09 10 11 dd |%.......|..:.....|
|00001380| f2 73 65 74 73 70 65 63 | 74 72 75 6d 0d 09 1a 23 |.setspec|trum...#|
|00001390| de 20 72 65 64 25 28 31 | 38 29 2c 67 72 65 65 6e |. red%(1|8),green|
|000013a0| 25 28 31 38 29 2c 62 6c | 75 65 25 28 31 38 29 0d |%(18),bl|ue%(18).|
|000013b0| 09 24 37 e3 20 63 6f 6c | 25 3d 30 b8 31 37 3a f3 |.$7. col|%=0.17:.|
|000013c0| 20 72 65 64 25 28 63 6f | 6c 25 29 2c 67 72 65 65 | red%(co|l%),gree|
|000013d0| 6e 25 28 63 6f 6c 25 29 | 2c 62 6c 75 65 25 28 63 |n%(col%)|,blue%(c|
|000013e0| 6f 6c 25 29 3a ed 0d 09 | 2e 05 e1 0d 09 38 05 3a |ol%):...|.....8.:|
|000013f0| 0d 09 42 14 dd f2 73 70 | 65 63 74 72 75 6d 28 6e |..B...sp|ectrum(n|
|00001400| 75 6d 25 29 0d 09 4c 10 | 6e 75 6d 25 3d 6e 75 6d |um%)..L.|num%=num|
|00001410| 25 83 37 32 0d 09 56 15 | 74 69 6e 74 25 3d 28 6e |%.72..V.|tint%=(n|
|00001420| 75 6d 25 83 34 29 3c 3c | 36 0d 09 60 0f 6e 75 6d |um%.4)<<|6..`.num|
|00001430| 25 3d 6e 75 6d 25 81 34 | 0d 09 6a 36 63 6f 6c 25 |%=num%.4|..j6col%|
|00001440| 3d 28 62 6c 75 65 25 28 | 6e 75 6d 25 29 3c 3c 34 |=(blue%(|num%)<<4|
|00001450| 29 2b 28 67 72 65 65 6e | 25 28 6e 75 6d 25 29 3c |)+(green|%(num%)<|
|00001460| 3c 32 29 2b 72 65 64 25 | 28 6e 75 6d 25 29 0d 09 |<2)+red%|(num%)..|
|00001470| 74 13 e6 20 63 6f 6c 25 | 20 c8 9c 20 74 69 6e 74 |t.. col%| .. tint|
|00001480| 25 0d 09 7e 05 e1 0d 09 | 88 05 3a 0d 09 92 4c f4 |%..~....|..:...L.|
|00001490| 20 41 73 73 65 6d 62 6c | 79 20 43 6f 64 65 20 2d | Assembl|y Code -|
|000014a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014d0| 2d 2d 2d 2d 2d 2d 2d 0d | 09 9c 05 3a 0d 09 a6 11 |-------.|...:....|
|000014e0| dd f2 6d 61 6b 65 73 68 | 69 6d 6d 65 72 0d 09 b0 |..makesh|immer...|
|000014f0| 16 de 20 73 68 69 6d 6d | 65 72 63 6f 64 65 25 20 |.. shimm|ercode% |
|00001500| 35 30 30 0d 09 ba 33 73 | 63 72 65 65 6e 73 74 61 |500...3s|creensta|
|00001510| 72 74 3d 30 3a 6f 66 66 | 73 65 74 3d 31 3a 6c 65 |rt=0:off|set=1:le|
|00001520| 6e 67 74 68 3d 32 3a 74 | 61 62 6c 65 3d 33 3a 76 |ngth=2:t|able=3:v|
|00001530| 61 6c 75 65 3d 34 0d 09 | c4 24 6e 65 77 76 61 6c |alue=4..|.$newval|
|00001540| 75 65 3d 35 3a 62 79 74 | 65 3d 36 3a 73 63 72 65 |ue=5:byt|e=6:scre|
|00001550| 65 6e 32 73 74 61 72 74 | 3d 37 0d 09 ce 11 e3 20 |en2start|=7..... |
|00001560| 70 61 73 73 25 3d 30 b8 | 32 88 32 0d 09 d8 13 50 |pass%=0.|2.2....P|
|00001570| 25 3d 73 68 69 6d 6d 65 | 72 63 6f 64 65 25 0d 09 |%=shimme|rcode%..|
|00001580| e2 05 5b 0d 09 ec 0d 4f | 50 54 20 70 61 73 73 25 |..[....O|PT pass%|
|00001590| 0d 09 f6 22 2e 73 63 72 | 65 65 6e 31 61 64 64 72 |...".scr|een1addr|
|000015a0| 20 45 51 55 44 20 73 63 | 72 65 65 6e 73 74 61 72 | EQUD sc|reenstar|
|000015b0| 74 25 0d 0a 00 2a 2e 73 | 63 72 65 65 6e 32 61 64 |t%...*.s|creen2ad|
|000015c0| 64 72 20 45 51 55 44 20 | 73 63 72 65 65 6e 73 74 |dr EQUD |screenst|
|000015d0| 61 72 74 25 2b 33 32 30 | 2a 32 35 36 0d 0a 0a 1d |art%+320|*256....|
|000015e0| 2e 73 63 72 65 65 6e 6c | 65 6e 20 45 51 55 44 20 |.screenl|en EQUD |
|000015f0| 33 32 30 2a 32 35 36 2d | 31 0d 0a 14 1e 2e 73 63 |320*256-|1.....sc|
|00001600| 72 65 65 6e 6c 65 6e 34 | 20 45 51 55 44 20 33 32 |reenlen4| EQUD 32|
|00001610| 30 2a 32 35 36 2d 34 0d | 0a 1e 1e 2e 74 61 62 6c |0*256-4.|....tabl|
|00001620| 65 61 64 64 72 20 45 51 | 55 44 20 73 77 61 70 74 |eaddr EQ|UD swapt|
|00001630| 61 62 6c 65 25 0d 0a 28 | 05 3a 0d 0a 32 0d 2e 73 |able%..(|.:..2..s|
|00001640| 68 69 6d 6d 65 72 31 0d | 0a 3c 16 53 54 4d 46 44 |himmer1.|.<.STMFD|
|00001650| 20 52 31 33 21 2c 7b 52 | 30 2d 52 36 7d 0d 0a 46 | R13!,{R|0-R6}..F|
|00001660| 35 4c 44 52 20 73 63 72 | 65 65 6e 73 74 61 72 74 |5LDR scr|eenstart|
|00001670| 2c 73 63 72 65 65 6e 31 | 61 64 64 72 3a 4c 44 52 |,screen1|addr:LDR|
|00001680| 20 6c 65 6e 67 74 68 2c | 73 63 72 65 65 6e 6c 65 | length,|screenle|
|00001690| 6e 34 0d 0a 50 29 4c 44 | 52 20 74 61 62 6c 65 2c |n4..P)LD|R table,|
|000016a0| 74 61 62 6c 65 61 64 64 | 72 3a 4d 4f 56 20 6f 66 |tableadd|r:MOV of|
|000016b0| 66 73 65 74 2c 6c 65 6e | 67 74 68 0d 0a 5a 0e 2e |fset,len|gth..Z..|
|000016c0| 73 68 69 6d 31 6c 6f 6f | 70 0d 0a 64 32 4d 4f 56 |shim1loo|p..d2MOV|
|000016d0| 20 6e 65 77 76 61 6c 75 | 65 2c 23 30 3a 4c 44 52 | newvalu|e,#0:LDR|
|000016e0| 20 76 61 6c 75 65 2c 5b | 73 63 72 65 65 6e 73 74 | value,[|screenst|
|000016f0| 61 72 74 2c 6f 66 66 73 | 65 74 5d 0d 0a 6e 2c 80 |art,offs|et]..n,.|
|00001700| 20 62 79 74 65 2c 76 61 | 6c 75 65 2c 23 32 35 35 | byte,va|lue,#255|
|00001710| 3a 4c 44 52 42 20 62 79 | 74 65 2c 5b 74 61 62 6c |:LDRB by|te,[tabl|
|00001720| 65 2c 62 79 74 65 5d 0d | 0a 78 32 84 52 20 6e 65 |e,byte].|.x2.R ne|
|00001730| 77 76 61 6c 75 65 2c 6e | 65 77 76 61 6c 75 65 2c |wvalue,n|ewvalue,|
|00001740| 62 79 74 65 3a 80 20 62 | 79 74 65 2c 76 61 6c 75 |byte:. b|yte,valu|
|00001750| 65 2c 23 32 35 35 3c 3c | 38 0d 0a 82 2e 4d 4f 56 |e,#255<<|8....MOV|
|00001760| 20 62 79 74 65 2c 62 79 | 74 65 2c 4c 53 52 23 38 | byte,by|te,LSR#8|
|00001770| 3a 4c 44 52 42 20 62 79 | 74 65 2c 5b 74 61 62 6c |:LDRB by|te,[tabl|
|00001780| 65 2c 62 79 74 65 5d 0d | 0a 8c 39 84 52 20 6e 65 |e,byte].|..9.R ne|
|00001790| 77 76 61 6c 75 65 2c 6e | 65 77 76 61 6c 75 65 2c |wvalue,n|ewvalue,|
|000017a0| 62 79 74 65 2c 4c 53 4c | 23 38 3a 80 20 62 79 74 |byte,LSL|#8:. byt|
|000017b0| 65 2c 76 61 6c 75 65 2c | 23 32 35 35 3c 3c 31 36 |e,value,|#255<<16|
|000017c0| 0d 0a 96 2f 4d 4f 56 20 | 62 79 74 65 2c 62 79 74 |.../MOV |byte,byt|
|000017d0| 65 2c 4c 53 52 23 31 36 | 3a 4c 44 52 42 20 62 79 |e,LSR#16|:LDRB by|
|000017e0| 74 65 2c 5b 74 61 62 6c | 65 2c 62 79 74 65 5d 0d |te,[tabl|e,byte].|
|000017f0| 0a a0 3a 84 52 20 6e 65 | 77 76 61 6c 75 65 2c 6e |..:.R ne|wvalue,n|
|00001800| 65 77 76 61 6c 75 65 2c | 62 79 74 65 2c 4c 53 4c |ewvalue,|byte,LSL|
|00001810| 23 31 36 3a 80 20 62 79 | 74 65 2c 76 61 6c 75 65 |#16:. by|te,value|
|00001820| 2c 23 32 35 35 3c 3c 32 | 34 0d 0a aa 2f 4d 4f 56 |,#255<<2|4.../MOV|
|00001830| 20 62 79 74 65 2c 62 79 | 74 65 2c 4c 53 52 23 32 | byte,by|te,LSR#2|
|00001840| 34 3a 4c 44 52 42 20 62 | 79 74 65 2c 5b 74 61 62 |4:LDRB b|yte,[tab|
|00001850| 6c 65 2c 62 79 74 65 5d | 0d 0a b4 24 84 52 20 6e |le,byte]|...$.R n|
|00001860| 65 77 76 61 6c 75 65 2c | 6e 65 77 76 61 6c 75 65 |ewvalue,|newvalue|
|00001870| 2c 62 79 74 65 2c 4c 53 | 4c 23 32 34 0d 0a be 25 |,byte,LS|L#24...%|
|00001880| 53 54 52 20 6e 65 77 76 | 61 6c 75 65 2c 5b 73 63 |STR newv|alue,[sc|
|00001890| 72 65 65 6e 73 74 61 72 | 74 2c 6f 66 66 73 65 74 |reenstar|t,offset|
|000018a0| 5d 0d 0a c8 18 53 55 42 | 20 6f 66 66 73 65 74 2c |]....SUB| offset,|
|000018b0| 6f 66 66 73 65 74 2c 23 | 34 0d 0a d2 32 4d 4f 56 |offset,#|4...2MOV|
|000018c0| 20 6e 65 77 76 61 6c 75 | 65 2c 23 30 3a 4c 44 52 | newvalu|e,#0:LDR|
|000018d0| 20 76 61 6c 75 65 2c 5b | 73 63 72 65 65 6e 73 74 | value,[|screenst|
|000018e0| 61 72 74 2c 6f 66 66 73 | 65 74 5d 0d 0a dc 2c 80 |art,offs|et]...,.|
|000018f0| 20 62 79 74 65 2c 76 61 | 6c 75 65 2c 23 32 35 35 | byte,va|lue,#255|
|00001900| 3a 4c 44 52 42 20 62 79 | 74 65 2c 5b 74 61 62 6c |:LDRB by|te,[tabl|
|00001910| 65 2c 62 79 74 65 5d 0d | 0a e6 32 84 52 20 6e 65 |e,byte].|..2.R ne|
|00001920| 77 76 61 6c 75 65 2c 6e | 65 77 76 61 6c 75 65 2c |wvalue,n|ewvalue,|
|00001930| 62 79 74 65 3a 80 20 62 | 79 74 65 2c 76 61 6c 75 |byte:. b|yte,valu|
|00001940| 65 2c 23 32 35 35 3c 3c | 38 0d 0a f0 2e 4d 4f 56 |e,#255<<|8....MOV|
|00001950| 20 62 79 74 65 2c 62 79 | 74 65 2c 4c 53 52 23 38 | byte,by|te,LSR#8|
|00001960| 3a 4c 44 52 42 20 62 79 | 74 65 2c 5b 74 61 62 6c |:LDRB by|te,[tabl|
|00001970| 65 2c 62 79 74 65 5d 0d | 0a fa 39 84 52 20 6e 65 |e,byte].|..9.R ne|
|00001980| 77 76 61 6c 75 65 2c 6e | 65 77 76 61 6c 75 65 2c |wvalue,n|ewvalue,|
|00001990| 62 79 74 65 2c 4c 53 4c | 23 38 3a 80 20 62 79 74 |byte,LSL|#8:. byt|
|000019a0| 65 2c 76 61 6c 75 65 2c | 23 32 35 35 3c 3c 31 36 |e,value,|#255<<16|
|000019b0| 0d 0b 04 2f 4d 4f 56 20 | 62 79 74 65 2c 62 79 74 |.../MOV |byte,byt|
|000019c0| 65 2c 4c 53 52 23 31 36 | 3a 4c 44 52 42 20 62 79 |e,LSR#16|:LDRB by|
|000019d0| 74 65 2c 5b 74 61 62 6c | 65 2c 62 79 74 65 5d 0d |te,[tabl|e,byte].|
|000019e0| 0b 0e 3a 84 52 20 6e 65 | 77 76 61 6c 75 65 2c 6e |..:.R ne|wvalue,n|
|000019f0| 65 77 76 61 6c 75 65 2c | 62 79 74 65 2c 4c 53 4c |ewvalue,|byte,LSL|
|00001a00| 23 31 36 3a 80 20 62 79 | 74 65 2c 76 61 6c 75 65 |#16:. by|te,value|
|00001a10| 2c 23 32 35 35 3c 3c 32 | 34 0d 0b 18 2f 4d 4f 56 |,#255<<2|4.../MOV|
|00001a20| 20 62 79 74 65 2c 62 79 | 74 65 2c 4c 53 52 23 32 | byte,by|te,LSR#2|
|00001a30| 34 3a 4c 44 52 42 20 62 | 79 74 65 2c 5b 74 61 62 |4:LDRB b|yte,[tab|
|00001a40| 6c 65 2c 62 79 74 65 5d | 0d 0b 22 24 84 52 20 6e |le,byte]|.."$.R n|
|00001a50| 65 77 76 61 6c 75 65 2c | 6e 65 77 76 61 6c 75 65 |ewvalue,|newvalue|
|00001a60| 2c 62 79 74 65 2c 4c 53 | 4c 23 32 34 0d 0b 2c 25 |,byte,LS|L#24..,%|
|00001a70| 53 54 52 20 6e 65 77 76 | 61 6c 75 65 2c 5b 73 63 |STR newv|alue,[sc|
|00001a80| 72 65 65 6e 73 74 61 72 | 74 2c 6f 66 66 73 65 74 |reenstar|t,offset|
|00001a90| 5d 0d 0b 36 19 53 55 42 | 53 20 6f 66 66 73 65 74 |]..6.SUB|S offset|
|00001aa0| 2c 6f 66 66 73 65 74 2c | 23 34 0d 0b 40 11 42 50 |,offset,|#4..@.BP|
|00001ab0| 4c 20 73 68 69 6d 31 6c | 6f 6f 70 0d 0b 4a 16 4c |L shim1l|oop..J.L|
|00001ac0| 44 4d 46 44 20 52 31 33 | 21 2c 7b 52 30 2d 52 36 |DMFD R13|!,{R0-R6|
|00001ad0| 7d 0d 0b 54 0f 4d 4f 56 | 20 52 31 35 2c 52 31 34 |}..T.MOV| R15,R14|
|00001ae0| 0d 0b 5e 05 3a 0d 0b 68 | 05 5d 0d 0b 72 05 ed 0d |..^.:..h|.]..r...|
|00001af0| 0b 7c 05 e1 0d 0b 86 05 | 3a 0d 0b 90 14 dd f2 6d |.|......|:......m|
|00001b00| 61 6b 65 75 6e 70 61 63 | 6b 62 69 74 73 0d 0b 9a |akeunpac|kbits...|
|00001b10| 19 de 20 75 6e 70 61 63 | 6b 62 69 74 73 63 6f 64 |.. unpac|kbitscod|
|00001b20| 65 25 20 35 30 30 0d 0b | a4 2a 76 61 6c 75 65 3d |e% 500..|.*value=|
|00001b30| 30 3a 70 69 78 65 6c 3d | 31 3a 62 75 66 66 65 72 |0:pixel=|1:buffer|
|00001b40| 70 74 72 3d 32 3a 73 74 | 61 72 74 70 74 72 3d 33 |ptr=2:st|artptr=3|
|00001b50| 0d 0b ae 1a 65 6e 64 70 | 74 72 3d 34 3a 6c 69 6e |....endp|tr=4:lin|
|00001b60| 6b 3d 31 34 3a 70 63 3d | 31 35 0d 0b b8 11 e3 20 |k=14:pc=|15..... |
|00001b70| 70 61 73 73 25 3d 30 b8 | 32 88 32 0d 0b c2 16 50 |pass%=0.|2.2....P|
|00001b80| 25 3d 75 6e 70 61 63 6b | 62 69 74 73 63 6f 64 65 |%=unpack|bitscode|
|00001b90| 25 0d 0b cc 05 5b 0d 0b | d6 0d 4f 50 54 20 70 61 |%....[..|..OPT pa|
|00001ba0| 73 73 25 0d 0b e0 29 2e | 75 6e 70 61 63 6b 5f 73 |ss%...).|unpack_s|
|00001bb0| 63 72 65 65 6e 73 74 61 | 72 74 20 45 51 55 44 20 |creensta|rt EQUD |
|00001bc0| 73 63 72 65 65 6e 73 74 | 61 72 74 25 0d 0b ea 27 |screenst|art%...'|
|00001bd0| 2e 75 6e 70 61 63 6b 5f | 73 63 72 65 65 6e 65 6e |.unpack_|screenen|
|00001be0| 64 20 20 20 45 51 55 44 | 20 73 63 72 65 65 6e 65 |d EQUD| screene|
|00001bf0| 6e 64 25 0d 0b f4 27 2e | 75 6e 70 61 63 6b 5f 62 |nd%...'.|unpack_b|
|00001c00| 75 66 66 65 72 73 74 61 | 72 74 20 45 51 55 44 20 |uffersta|rt EQUD |
|00001c10| 72 6c 65 62 75 66 66 65 | 72 25 0d 0b fe 05 3a 0d |rlebuffe|r%....:.|
|00001c20| 0c 08 0f 2e 75 6e 70 61 | 63 6b 62 69 74 73 0d 0c |....unpa|ckbits..|
|00001c30| 12 24 4c 44 52 20 62 75 | 66 66 65 72 70 74 72 2c |.$LDR bu|fferptr,|
|00001c40| 75 6e 70 61 63 6b 5f 62 | 75 66 66 65 72 73 74 61 |unpack_b|uffersta|
|00001c50| 72 74 0d 0c 1c 23 4c 44 | 52 20 73 74 61 72 74 70 |rt...#LD|R startp|
|00001c60| 74 72 2c 75 6e 70 61 63 | 6b 5f 73 63 72 65 65 6e |tr,unpac|k_screen|
|00001c70| 73 74 61 72 74 0d 0c 26 | 1f 4c 44 52 20 65 6e 64 |start..&|.LDR end|
|00001c80| 70 74 72 2c 75 6e 70 61 | 63 6b 5f 73 63 72 65 65 |ptr,unpa|ck_scree|
|00001c90| 6e 65 6e 64 0d 0c 30 0d | 2e 6d 61 69 6e 6c 6f 6f |nend..0.|.mainloo|
|00001ca0| 70 0d 0c 3a 33 4c 44 52 | 42 20 76 61 6c 75 65 2c |p..:3LDR|B value,|
|00001cb0| 5b 62 75 66 66 65 72 70 | 74 72 5d 2c 23 31 3a 43 |[bufferp|tr],#1:C|
|00001cc0| 4d 50 20 76 61 6c 75 65 | 2c 23 30 3a 42 45 51 20 |MP value|,#0:BEQ |
|00001cd0| 65 78 69 74 0d 0c 44 1f | 43 4d 50 20 76 61 6c 75 |exit..D.|CMP valu|
|00001ce0| 65 2c 23 31 32 38 3a 42 | 47 45 20 70 69 78 65 6c |e,#128:B|GE pixel|
|00001cf0| 72 75 6e 0d 0c 4e 0e 2e | 63 6f 6c 6f 75 72 72 75 |run..N..|colourru|
|00001d00| 6e 0d 0c 58 1d 4c 44 52 | 42 20 70 69 78 65 6c 2c |n..X.LDR|B pixel,|
|00001d10| 5b 62 75 66 66 65 72 70 | 74 72 5d 2c 23 31 0d 0c |[bufferp|tr],#1..|
|00001d20| 62 0f 2e 63 6f 6c 6f 75 | 72 6c 6f 6f 70 0d 0c 6c |b..colou|rloop..l|
|00001d30| 34 53 54 52 42 20 70 69 | 78 65 6c 2c 5b 73 74 61 |4STRB pi|xel,[sta|
|00001d40| 72 74 70 74 72 5d 2c 23 | 31 3a 53 54 52 42 20 70 |rtptr],#|1:STRB p|
|00001d50| 69 78 65 6c 2c 5b 65 6e | 64 70 74 72 5d 2c 23 2d |ixel,[en|dptr],#-|
|00001d60| 31 0d 0c 76 26 53 55 42 | 53 20 76 61 6c 75 65 2c |1..v&SUB|S value,|
|00001d70| 76 61 6c 75 65 2c 23 31 | 3a 42 4e 45 20 63 6f 6c |value,#1|:BNE col|
|00001d80| 6f 75 72 6c 6f 6f 70 0d | 0c 80 0e 42 20 6d 61 69 |ourloop.|...B mai|
|00001d90| 6e 6c 6f 6f 70 0d 0c 8a | 0d 2e 70 69 78 65 6c 72 |nloop...|..pixelr|
|00001da0| 75 6e 0d 0c 94 18 53 55 | 42 20 76 61 6c 75 65 2c |un....SU|B value,|
|00001db0| 76 61 6c 75 65 2c 23 31 | 32 38 0d 0c 9e 0e 2e 70 |value,#1|28.....p|
|00001dc0| 69 78 65 6c 6c 6f 6f 70 | 0d 0c a8 1d 4c 44 52 42 |ixelloop|....LDRB|
|00001dd0| 20 70 69 78 65 6c 2c 5b | 62 75 66 66 65 72 70 74 | pixel,[|bufferpt|
|00001de0| 72 5d 2c 23 31 0d 0c b2 | 34 53 54 52 42 20 70 69 |r],#1...|4STRB pi|
|00001df0| 78 65 6c 2c 5b 73 74 61 | 72 74 70 74 72 5d 2c 23 |xel,[sta|rtptr],#|
|00001e00| 31 3a 53 54 52 42 20 70 | 69 78 65 6c 2c 5b 65 6e |1:STRB p|ixel,[en|
|00001e10| 64 70 74 72 5d 2c 23 2d | 31 0d 0c bc 25 53 55 42 |dptr],#-|1...%SUB|
|00001e20| 53 20 76 61 6c 75 65 2c | 76 61 6c 75 65 2c 23 31 |S value,|value,#1|
|00001e30| 3a 42 4e 45 20 70 69 78 | 65 6c 6c 6f 6f 70 0d 0c |:BNE pix|elloop..|
|00001e40| c6 0e 42 20 6d 61 69 6e | 6c 6f 6f 70 0d 0c d0 09 |..B main|loop....|
|00001e50| 2e 65 78 69 74 0d 0c da | 0f 4d 4f 56 20 70 63 2c |.exit...|.MOV pc,|
|00001e60| 6c 69 6e 6b 0d 0c e4 05 | 3a 0d 0c ee 05 5d 0d 0c |link....|:....]..|
|00001e70| f8 05 ed 0d 0d 02 05 e1 | 0d 0d 0c 05 3a 0d 0d 16 |........|....:...|
|00001e80| 4b f4 20 53 70 65 63 74 | 72 75 6d 20 44 61 74 61 |K. Spect|rum Data|
|00001e90| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0d 20 05 3a 0d 0d 2a |--------|.. .:..*|
|00001ed0| 19 dc 20 30 2c 30 2c 33 | 2c 20 30 2c 31 2c 33 2c |.. 0,0,3|, 0,1,3,|
|00001ee0| 20 30 2c 32 2c 33 0d 0d | 34 19 dc 20 30 2c 33 2c | 0,2,3..|4.. 0,3,|
|00001ef0| 33 2c 20 30 2c 33 2c 32 | 2c 20 30 2c 33 2c 31 0d |3, 0,3,2|, 0,3,1.|
|00001f00| 0d 3e 19 dc 20 30 2c 33 | 2c 30 2c 20 31 2c 33 2c |.>.. 0,3|,0, 1,3,|
|00001f10| 30 2c 20 32 2c 33 2c 30 | 0d 0d 48 19 dc 20 33 2c |0, 2,3,0|..H.. 3,|
|00001f20| 33 2c 30 2c 20 33 2c 32 | 2c 30 2c 20 33 2c 31 2c |3,0, 3,2|,0, 3,1,|
|00001f30| 30 0d 0d 52 19 dc 20 33 | 2c 30 2c 30 2c 20 33 2c |0..R.. 3|,0,0, 3,|
|00001f40| 30 2c 31 2c 20 33 2c 30 | 2c 32 0d 0d 5c 19 dc 20 |0,1, 3,0|,2..\.. |
|00001f50| 33 2c 30 2c 33 2c 20 32 | 2c 30 2c 33 2c 20 31 2c |3,0,3, 2|,0,3, 1,|
|00001f60| 30 2c 33 0d ff | |0,3.. | |
+--------+-------------------------+-------------------------+--------+--------+
